Usenet 1993 July/InfoMagic USENET CD-ROM July 1993.ISO/sources/sun/volume2/ss1-music

Text File | 1990-02-05 | 10.3 KB | 679 lines

Path: uunet!cs.utexas.edu!yale!cmcl2!rutgers!aramis.rutgers.edu!dartagnan.rutgers.edu!mcgrew
From: [e-mail] (Charles Mcgrew)
Newsgroups: comp.sources.sun
Subject: v02i010:  Music player for SS1s
Message-ID: <[e-mail]>
Date: 5 Feb 90 19:59:27 GMT
Organization: Rutgers Univ., New Brunswick, N.J.
Lines: 668
Approved: [e-mail]

Submitted-by: [e-mail] (Tony Laundrie)
Posting-number: Volume 2, Issue 10
Archive-name: ss1-music


Here is a brief audio program that I wrote for generating music on the SUN
SPARCstation audio device.  If you make any changes or improvements, please
send them to me, ...uwvax!astroatc!ttl  or  [e-mail]

After unwrapping and Making the executable "beep", you can play a song
by typing "beep < soundfile".  Several soundfiles (dixie, growforme, suddenly,
and jingle) are included.  Have fun!


[ Typing in tunes for this program to play is pretty easy -- I typed
in the first two pages from "here comes the sun" in about 45 minutes
(that includes 'learning-curve' time)...  I'd like to keep an archive
of music people write, so send them in!  Music files will be kept in
src/sun-sources/music in the anonymous ftp location of rutgers.edu.
Also, the first batch of sparc-playable sounds has arrived, and is in
src/sun-sources/sounds.  See src/sun-sources/README for more info. -CWM]


# This is a shell archive.  Remove anything before this line,
# then unpack it by saving it in a file and typing "sh file".
#

echo x - Makefile
sed 's/^@//' > "Makefile" <<'@//E*O*F Makefile//'

beep:    beep.c
    cc -O -o beep beep.c
@//E*O*F Makefile//
chmod u=rw,g=r,o=r Makefile

echo x - README
sed 's/^@//' > "README" <<'@//E*O*F README//'
For music files used with the beep program,

The first line is:
RATE (low = fast), PITCH (low = low), VOLUME (low = quiet), DECAY (0 = no decay)

Floating point numbers accepted for RATE, VOLUME, and DECAY.

All other lines represent notes and rests, as follows:

VOL BEATS NOTE WORD

VOL and BEATS must be integers.

VOL is multiplied by first line VOLUME to get note's volume (range = 0-255).
Use VOL = 0 for a rest.

BEATS is multiplied by first line RATE to get note's length (units = 1/32 sec).
Result should be an integer.

NOTE consists of an octave (0-8) concatenated with a note (a-g) concatenated
with a flat or sharp (b or #).  Badly-formed notes are not detected.

The word is printed to standard output.
Words suffixed with - don't have a space automatically printed after them.
Words suffixed with \ have a newline appended.



See "growforme" for an example.
@//E*O*F README//
chmod u=rw,g=r,o=r README

echo x - beep.c
sed 's/^@//' > "beep.c" <<'@//E*O*F beep.c//'
#include <stdio.h>
#include <fcntl.h>
#include <sys/ioctl.h>
#include <sun/audioio.h>
#define BUFLEN 256

static int notes[9][12] = {
   { 1002, 946, 893, 843, 795, 751, 709, 669, 631, 596, 562, 531 },
   {  501, 473, 446, 421, 398, 375, 354, 334, 316, 298, 281, 265 },
   {  250, 236, 223, 211, 199, 188, 177, 167, 158, 149, 141, 133 },
   {  125, 118, 112, 105,  99,  94,  89,  84,  79,  74,  70,  66 },
   {   63,  59,  56,  53,  50,  47,  44,  42,  39,  37,  35,  33 },
   {   31,  30,  28,  26,  25,  23,  22,  21,  20,  19,  18,  17 },
   {   16,  15,  14,  13,  12,  11,  11,  10,  10,   9,   9,   8 },
   {    7,   7,   7,   7,   6,   6,   6,   5,   5,   5,   4,   4 },
   {    4,   4,   3,   3,   3,   3,   3,   3,   2,   2,   2,   2 }
};

static int conv[7] = {9, 11, 0, 2, 4, 5, 7};

int oct, n, length, f, period, j, i, k;
float speed, loudness, volume, decay;
int tone;
char buf[BUFLEN];
char mess[80], *p;

main (argc, argv)
int argc;
char *argv[];
{
   f = open ("/dev/audio", O_WRONLY);
   scanf ("%f %d %f %f", &speed, &tone, &loudness, &decay);
CONT:
   do {
      ioctl (f, AUDIOWRITEQ, &n);
   } while (n);
   if (gets (mess) == NULL) exit (0);
   if (sscanf (mess, "%f%d%s%s", &volume, &length, buf, mess) == 4) {
      n = strlen(mess);
      if (mess[n-1] == '-') {
     mess[n-1] = '\0';
     fputs (mess, stdout);
      }
      else if (mess[n-1] == '\\') {
     mess[n-1] = '\0';
     fputs (mess, stdout);
     putchar ('\n');
      }
      else {
     fputs (mess, stdout);
     putchar (' ');
      }
      fflush (stdout);
   }
   volume = loudness * volume;
   length = (int) (speed * length);
   oct = buf[0] - '0';
   n = conv[buf[1] - 'a'];
   if (buf[2] == 'b') --n;
   else if (buf[2] == '#') ++n;
   n = n + tone;
   period = notes[oct][n];

   i = 0;
   k = 0;
   for (;;) {
      for (j = 0; j < period>>1; ++j) {
     buf[i++] = 0;
     if ((volume = volume - decay) < 0.0) volume = 0.0;
     if (i >= BUFLEN) {
        write (f,buf,BUFLEN);
        if (++k >= length) goto CONT;
        i = 0;
     }
      }
      for (j = 0; j < ((period>>1) + (period & 0x1)); ++j) {
     buf[i++] = (int) volume;
     if ((volume = volume - decay) < 0.0) volume = 0.0;
     if (i >= BUFLEN) {
        write (f,buf,BUFLEN);
        if (++k >= length) goto CONT;
        i = 0;
     }
      }
   }
}
@//E*O*F beep.c//
chmod u=rw,g=r,o=r beep.c

echo x - dixie
sed 's/^@//' > "dixie" <<'@//E*O*F dixie//'
0.8 0 127 0.44
2 4 5g
2 4 5e
2 4 5c
0 4 0c
2 4 5c
0 4 0c
2 4 5c
2 4 5d
2 4 5e
2 4 5f
2 4 5g
0 4 0c
2 4 5g
0 4 0c
2 4 5g
0 4 0c
2 4 5e
@//E*O*F dixie//
chmod u=rw,g=r,o=r dixie

echo x - growforme
sed 's/^@//' > "growforme" <<'@//E*O*F growforme//'
1 12 255 0
0 35 0c
1 6 2bb I've
0 1 0c
1 6 2bb gi-
0 1 0c
1 6 3eb ven
0 1 0c
1 6 3f you
0 1 0c
1 13 3g sun-
0 1 0c
1 28 3eb shine,\
0 14 0c
1 6 2bb I've
0 1 0c
1 6 2bb gi-
0 1 0c
1 6 3eb ven
0 1 0c
1 6 3g you
0 1 0c
1 21 3bb dirt,\
0 35 0c
1 6 3eb You've
0 1 0c
1 6 3eb gi-
0 1 0c
1 6 3ab ven
0 1 0c
1 6 3bb me
0 1 0c
1 6 4c noth-
0 1 0c
1 6 3bb
0 1 0c
1 28 3ab in',\
0 14 0c
1 6 3eb But
0 1 0c
1 6 3eb heart-
0 1 0c
1 6 3ab ache
0 1 0c
1 6 4c and
0 1 0c
1 21 4eb hurt.\
0 35 0c
1 6 4eb I'm
0 1 0c
1 6 4eb beg-
0 1 0c
1 6 4d gin'
0 1 0c
1 6 4c you
0 1 0c
1 13 3bb sweet-
0 1 0c
1 28 3g ly,\
0 14 0c
1 6 3eb I'm
0 1 0c
1 6 3eb down
0 1 0c
1 6 3f on
0 1 0c
1 6 3g my
0 1 0c
1 42 3ab knees,\
0 28 0c
1 13 4cb Oh
0 1 0c
1 42 4c please,
0 14 0c
1 13 4d grow
0 1 0c
1 13 4d for
0 1 0c
1 21 4eb me!\
0 35 0c \
1 6 3eb I've
0 1 0c
1 6 3eb gi-
0 1 0c
1 6 3f ven
0 1 0c
1 6 3g you
0 1 0c
1 13 3g south-
0 1 0c
1 20 3e ern
0 1 0c
1 6 3f ex-
0 1 0c
1 13 3g po-
0 1 0c
1 20 3ab sure
0 1 0c
1 6 3bb to
0 1 0c
1 6 3bb get
0 1 0c
1 6 3ab you
0 1 0c
1 6 3g to
0 1 0c
1 21 3ab thrive,\
0 14 0c
1 6 3f I've
0 1 0c
1 6 3f pinched
0 1 0c
1 6 3g you
0 1 0c
1 6 3ab back
0 1 0c
1 13 3a hard
0 1 0c
1 13 3f# like
0 1 0c
1 13 3g I'm
0 1 0c
1 13 3a s'posed
0 1 0c
1 13 3bb ta,
0 1 0c
1 13 4c you're
0 1 0c
1 13 4c bare-
0 1 0c
1 13 3bb ly
0 1 0c
1 13 3a a-
0 1 0c
1 13 3bb live,\
0 1 0c
1 6 3eb I've
0 1 0c
1 6 3eb tried
0 1 0c
1 6 3ab you
0 1 0c
1 6 3bb at
0 1 0c
1 13 4c lev-
0 1 0c
1 13 3ab els
0 1 0c
1 13 3bb of
0 1 0c
1 13 4c mois-
0 1 0c
1 6 4d ture
0 1 0c
0 13 0c
0 1 0c
1 6 4c from
0 1 0c
1 13 3bb des-
0 1 0c
1 13 4c ert
0 1 0c
1 13 4d to
0 1 0c
1 21 4eb mud,\
0 14 0c
1 6 4eb I've
0 1 0c
1 6 4eb gi-
0 1 0c
1 6 4eb ven
0 1 0c
1 6 4eb you
0 1 0c
1 6 4eb grow
0 1 0c
1 6 4eb lights
0 1 0c
1 6 4eb and
0 1 0c
1 6 4eb min-
0 1 0c
1 6 4eb er-
0 1 0c
1 6 4eb al
0 1 0c
1 6 4eb sup-
0 1 0c
1 6 4d ple-
0 1 0c
1 6 4c ments,\
0 1 0c
1 6 4d What
0 1 0c
1 6 4d do
0 1 0c
1 6 4d you
0 1 0c
1 6 4d want
0 1 0c
1 6 4eb from
0 1 0c
1 6 4e me?
0 1 0c
1 7 4f Blood?!\
0 7 0c \
1 6 2bb I've
0 1 0c
1 6 2bb gi-
0 1 0c
1 6 3eb ven
0 1 0c
1 6 3f you
0 1 0c
1 13 3g sun-
0 1 0c
1 28 3eb light,\
0 14 0c
1 6 2bb I've
0 1 0c
1 6 2bb gi-
0 1 0c
1 6 3eb ven
0 1 0c
1 6 3g you
0 1 0c
1 21 3bb rain,\
0 35 0c
1 6 3eb Looks
0 1 0c
1 6 3eb like
0 1 0c
1 6 3ab you're
0 1 0c
1 6 3bb not
0 1 0c
1 6 4c hap-
0 1 0c
1 6 3bb
0 1 0c
1 28 3ab py,\
0 7 0c
1 6 3eb 'Less
0 1 0c
1 6 3eb I
0 1 0c
1 6 3eb o-
0 1 0c
1 6 3ab pen
0 1 0c
1 6 4c a
0 1 0c
1 49 4eb vein,\
0 7 0c
1 6 4eb I'll
0 1 0c
1 6 4eb give
0 1 0c
1 6 4d you
0 1 0c
1 6 4c a
0 1 0c
1 6 3bb few
0 1 0c
1 14 3g drops,\
0 35 0c
1 6 3eb If
0 1 0c
1 6 3eb that-
0 1 0c
1 6 3f 'll
0 1 0c
1 6 3g ap-
0 1 0c
1 21 3ab pease,\
0 42 0c
1 20 4cb Now
0 1 0c
1 42 4c please,
0 28 0c
1 13 4c oh
0 1 0c
1 41 4d please,
0 1 0c
1 20 4c grow
0 1 0c
1 20 3bb for
0 1 0c
1 301 4eb me!\
0 35 0c
@//E*O*F growforme//
chmod u=rw,g=r,o=r growforme

echo x - jingle
sed 's/^@//' > "jingle" <<'@//E*O*F jingle//'
4 0 127 0
1 1 4c
1 3 4f
1 1 4e
1 2 4f
1 2 4a
1 3 4g
1 1 4f
1 2 4g
@//E*O*F jingle//
chmod u=rw,g=r,o=r jingle

echo x - suddenly
sed 's/^@//' > "suddenly" <<'@//E*O*F suddenly//'
1 12 255 0
0 25 0c
1 9 3d Lift
0 1 0c
1 9 3e up
0 1 0c
1 9 3f# your
0 1 0c
1 20 3e head,\
0 20 0c
1 9 2a Wash
0 1 0c
1 9 3d off
0 1 0c
1 9 3e your
0 1 0c
1 9 3f# mas-
0 1 0c
1 19 3e ca-
0 1 0c
1 10 2a ra,\
0 20 0c
1 9 3f# Here,
0 1 0c
1 9 3g# take
0 1 0c
1 9 3a my
0 1 0c
1 19 3a Klee-
0 1 0c
1 9 2a nex,\
0 1 0c
1 9 2a Wipe
0 1 0c
1 9 3c# that
0 1 0c
1 9 3d lip-
0 1 0c
1 9 3c# stick
0 1 0c
1 9 2b a-
0 1 0c
1 20 3c# way,\
0 30 0c \
1 9 3d Show
0 1 0c
1 9 3e me
0 1 0c
1 9 3f# your
0 1 0c
1 20 3e face,\
0 30 0c
1 9 3d Clean
0 1 0c
1 9 3e as
0 1 0c
1 9 3f# the
0 1 0c
1 19 3e mor-
0 1 0c
1 10 2a nin',\
0 15 0c
1 4 2a I
0 1 0c
1 9 3f# know
0 1 0c
1 9 3g# things
0 1 0c
1 9 3a were
0 1 0c
1 20 3a bad,\
0 25 0c
1 4 3e But
0 1 0c
1 14 3e now
0 1 0c
1 14 3a they're
0 1 0c
1 9 3g# o-
0 1 0c
1 60 3a kay,\
0 60 0c \
1 14 4c# Sud-
0 1 0c
1 14 3b den-
0 1 0c
1 9 3a ly
0 1 0c
1 29 3a Sey-
0 1 0c
1 50 3f# mour
0 30 0c
1 9 3f# is
0 1 0c
1 14 3f# stand-
0 1 0c
1 14 3g# in'
0 1 0c
1 9 3a be-
0 1 0c
1 29 3e side
0 1 0c
1 50 3c# you,\
0 30 0c
1 9 3c# You
0 1 0c
1 14 4c# don't
0 1 0c
1 14 3b need
0 1 0c
1 9 3a no
0 1 0c
1 29 3b make-
0 1 0c
1 50 3g# up,
0 30 0c
1 9 3e don't
0 1 0c
1 14 3f# have
0 1 0c
1 14 3a to
0 1 0c
1 9 3b pre-
0 1 0c
1 119 4c# tend,\
0 1 0c
1 14 4c# Sud-
0 1 0c
1 14 3b den-
0 1 0c
1 9 3a ly
0 1 0c
1 29 3a Sey-
0 1 0c
1 50 3f# mour
0 30 0c
1 9 3f# is
0 1 0c
1 14 3f# here
0 1 0c
1 14 3g# to
0 1 0c
1 9 3a pro-
0 1 0c
1 39 3e vide
0 1 0c
1 40 3a you,\
0 40 0c
1 14 3f# Sweet
0 1 0c
1 14 3g# un-
0 1 0c
1 9 3a der-
0 1 0c
1 24 4c# stand-
0 1 0c
1 4 3b
0 1 0c
1 9 3a
0 1 0c
1 40 3a ing,
0 40 0c
1 14 3e Sey-
0 1 0c
1 14 3a mour's
0 1 0c
1 9 3g# your
0 1 0c
1 40 3a friend.\
0 25 0c
@//E*O*F suddenly//
chmod u=rw,g=r,o=r suddenly

exit 0